#!/usr/bin/perl -w

=head1
require "mtsm_subroutins.pl";

print "Start\n";

&msg("MTSM0aaa000I");
&msg("MTSM0000I","abcdef");
&msg();

&execute("q node;q sess; q pr; q event * *; select * from nodes where Node_name like '%TEST%'");
my $in = <STDIN>;
&execute($in);
&execute();

print "Stop\n";

&msg("0000I","abcdef");


my @akarmi =  &tsm_query("q_sess.txt");
my $sorok = &tsm_numOfRows(@akarmi);

print @akarmi;
print $sorok."\n";
print &tsm_result(@akarmi,2,3);

=cut

require "mtsm_subroutins.pl";

#&kiir("q_pr.txt",3);

# &execute("q_node.txt");
&kiir2(`type q_node.txt_header`);
<STDIN>;
our $grep = "";#qq(ANR....E);
our $highlighter = qq(SES.ION);

&kiir2(`type q_actlog.txt_header`);

<STDIN>;
